home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / E-G / GetPixel XFCN.cpt / GetPixel XFCN / background_2630.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  64 lines
  1. -- background: 2630 from stack: in
  2. -- bmap block id: 8916
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: USA
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=156 top=38 right=159 bottom=341
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Search Maps
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get the clickloc
  23.   put item 1 of it into h
  24.   put item 2 of it into v
  25.   if GetPixel(h,v) is not true then
  26.     play boing
  27.     show card field "In the Map"
  28.     wait 360
  29.     hide card field "In the Map"
  30.     exit mouseup
  31.   end if
  32.   put empty into tempname
  33.   set lockscreen to true
  34.   put empty into bkgnd field "Region Name"
  35.   go next
  36.   set lockscreen to false
  37.   repeat (number of cards) - 1 times
  38.     if GetPixel(h,v) then
  39.       put the short name of this card into tempname
  40.       exit repeat
  41.     end if
  42.     go next
  43.   end repeat
  44.   set lockscreen to true
  45.   go first
  46.   put tempname into bkgnd field "Region Name"
  47.   set lockscreen to false
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 01
  54. -- high flags: 0002
  55. -- rect: left=155 top=164 right=189 bottom=342
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 6
  60. -- text size: 18
  61. -- style flags: 0
  62. -- line height: 24
  63. -- part name: Region Name
  64.